;---------------------------------------
;raster stabiliser without leaving the
;IRQ. It's a demonstration. Load a zak
;at $1000 :)
;(c) BRUSH/ELYSIUM
;---------------------------------------


;zaladuj muzyczke od $1000

         *= $3000

         sei
         lda #$00
         jsr $1000
         lda #$7f
         sta $dc0d
         lda #$01
         sta $d01a
         lda #<int
         sta $0314
         lda #>int
         sta $0315
         lda #$1b
         sta $d011
         lda #$2a
         sta $d012
         cli
         jmp *

;---------------------------------------

int      ldx #$03
         dex
         bne *-1
         lda $d012
         cmp #$2a
         beq *+2

         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2b
         beq *+2

         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2c
         beq *+2

         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2d
         beq *+2

         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2e
         beq *+2

         ldx #$0a
         dex
         bne *-1
         nop
         nop
         lda $d012
         cmp #$2f
         beq *+2


         lda #$80
         cmp $d012
         bne *-3
         inc $d020
         jsr $1003
         dec $d020
         lsr $d019
         jmp $ea7e

;---------------------------------------

